COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% This file contains punctuation marks common to roman and italic styles.
C00003 00003	cmchar "Left parenthesis"
C00004 00004	cmchar "Right parenthesis"
C00005 ENDMK
C⊗;
% This file contains punctuation marks common to roman and italic styles.
% Codes \¬041, \¬043, \¬045, \¬047--\¬054, \¬056, \¬057, \¬072, \¬073, \¬075,
% \¬100, \¬133, \¬135, and \¬140 are used.
% A Spanish exclamation point is also generated, with code \\{spanx},
% unless $\\{spanx}<0$.
cmchar "Left parenthesis";
numeric ht#, dp#;
ht#=hheight#+border#; .5[ht#,-dp#]=axis#;
beginchar("(",7u#,ht#,dp#);
italcorr ht#*slant-.5u#;
pickup tinypen;
penpos1(hair-tiny,0); penpos3(hair-tiny,0);
penpos2(.75[thin,thick]-tiny,0);
rt x1r = rt x3r = w-u; lft x2l = x1-4u;
top y1=h; y2=.5[y1,y3]=axis;
filldraw z1l{curl 4}..z2l..{curl 4}z3l--
	  z3r{curl 4}..z2r..{curl 4}z1r--cycle;
labels.top(3,2);
labels.bot(1);
labels.lft(1l,2l,3l);
labels.rt(1r,2r,3r);
endchar;
cmchar "Right parenthesis";
numeric ht#, dp#;
ht#=hheight#+border#; .5[ht#,-dp#]=axis#;
beginchar(")",7u#,ht#,dp#);
italcorr axis#*slant-u#;
pickup tinypen;
penpos1(hair-tiny,0); penpos3(hair-tiny,0);
penpos2(.75[thin,thick]-tiny,0);
lft x1l = lft x3l = u; rt x2r = x1+4u;
top y1=h; y2=.5[y1,y3]=axis;
filldraw z1l{curl 4}..z2l..{curl 4}z3l--
	  z3r{curl 4}..z2r..{curl 4}z1r--cycle;
labels.top(3,2);
labels.bot(1);
labels.lft(1l,2l,3l);
labels.rt(1r,2r,3r);
endchar;